home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Developers / NeoIntroTCL3.0 folder / TCL / NeoBench / Source / CFiller.cp next >
Encoding:
Text File  |  1994-04-27  |  987 b   |  48 lines  |  [TEXT/KAHL]
  1. /************************************************************
  2.  *
  3.  *    Created: Tuesday, March 29, 1994 2:55:51 PM
  4.  *    CFiller.cp
  5.  *    Implementation of a dummy persistent object class
  6.  *
  7.  *
  8.  *    Copyright © Neologic Systems 1992-1994. All Rights Reserved.
  9.  *    All rights reserved
  10.  *
  11.  ***********************************************************/
  12.  
  13. #include "NeoTypes.h"
  14. #include CNeoStreamH
  15. #include "CFiller.h"
  16.  
  17. CNeoPersist *CFiller::New(void)
  18. {
  19.     return new CFiller();
  20. }
  21.  
  22. NeoID CFiller::getClassID(void) const
  23. {
  24.     return kFillerID;
  25. }
  26.  
  27. long CFiller::getFileLength(void) const
  28. {
  29.     return kNeoPersistFileLength + sizeof(fFiller);
  30. }
  31.  
  32. #pragma segment NeoRead
  33. void CFiller::readObject(CNeoStream *aStream, const NeoTag aTag)
  34. {
  35.     inherited::readObject(aStream, aTag);
  36.  
  37.     aStream->readString(fFiller, sizeof(fFiller));
  38. }
  39.  
  40. #pragma segment NeoWrite
  41. void CFiller::writeObject(CNeoStream *aStream, const NeoTag aTag)
  42. {
  43.     inherited::writeObject(aStream, aTag);
  44.  
  45.     aStream->writeString(fFiller, sizeof(fFiller));
  46. }
  47.  
  48.